home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / EasyTools / EASYgetsize < prev    next >
Encoding:
Text File  |  1996-12-13  |  1.3 KB  |  74 lines
  1.  
  2. /*
  3.  
  4. $VER: EASYgetsize 1.0 (09.05.96) by David De Groot
  5.  
  6. This script works with 'getsize' in your c: dir
  7.  
  8. */
  9.  
  10.  
  11.  
  12.  
  13. options failat 21
  14. NL = '0a'x
  15.  
  16.  
  17. bool = exists('libs:rexxreqtools.library')
  18.  if bool = 0 then say "You need RexxReqTools.library"
  19. else call addlib('rexxreqtools.library',0,-30)
  20.  
  21. gcheck = exists('c:getsize')
  22. if gcheck = 0
  23.     then do
  24.      call rtezrequest("GETSIZE is not in your C: ...",, 
  25.                       "Sorry!","ATTENTION!!",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  26.     exit 
  27.   end
  28. else 
  29.  
  30.  
  31. call rtezrequest("Volumes or dirs?",,
  32.                  "Dir|Volume", "EASYsize", 'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  33. if rtresult == 0 
  34.  then call vol
  35. else call dir
  36.  
  37. /**/
  38.  
  39. vol:
  40. dev = rtfilerequest('ram:','', "Pick a volume", ,,
  41.                     'rtfi_volumerequest = 0 rt_reqpos=reqpos_centerscr')
  42.  
  43.  if rtresult == 0 
  44.   then exit
  45.  
  46. call sizeresult(dev)
  47.  
  48. /**/
  49.    
  50. dir:
  51. dirken = rtfilerequest('ram:','', "Pick a directory", ,,
  52.                        'rtfi_flags = freqf_nofiles rt_reqpos=reqpos_centerscr')
  53.  
  54.  if rtresult == 0 
  55.   then exit
  56.  
  57. call sizeresult(dirken)
  58.    
  59.  
  60. /**/
  61.  
  62. sizeresult:
  63.  
  64. address command 
  65.    'getsize ' || arg(1) || ' >t:size' 
  66.  
  67.    call open('resultaat','t:size','R')
  68.    line=readln('resultaat') 
  69.  
  70.  call rtezrequest("Result" upper(arg(1)) line , "Thanks!","EASYsize")
  71.  
  72.  
  73. exit
  74.